program usualwriteread
	implicit none
	integer:: fh=21
	double precision:: a
	double precision:: b(3) 
	b(1) = 1d0
	b(2) = 2d0
	b(3) = 3d0
	open( unit=fh, file='usualwriteread.txt', access='sequential' )
	write(fh, *) b
	close( fh )
	open( unit=fh, file='usualwriteread.txt', status='old' )
	b = 0d0
	read( fh, * ) a
	print *, a
	close( fh )
	stop
end program
